home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_504_EachMenuItem < prev    next >
Encoding:
Text File  |  1992-04-08  |  985 b   |  53 lines
  1. %case defineItem%
  2.     %if commandNr > 999%
  3.         c%MenuName%%MenuItemName%%    %= %commandNr%; 
  4.     %endif%
  5. %case usesDialog%
  6.     %if dialogExists%
  7.         %if modeless%
  8.         %else%
  9.             FROM U%dlogname% IMPORT
  10.                 Do%dlogname%;
  11.         %endif%
  12.     %endif%
  13. %case doitem.decl%
  14.     %if commandNr > 999%
  15.         %if dialogExists%
  16.             %if modeless%
  17.                 METHOD Do%dlogname%;
  18.             %endif%
  19.         %endif%
  20.     %endif%
  21. %case doItem%
  22.     %if commandNr > 999%
  23.         %if dialogExists%
  24.             %if modeless%
  25.                 (*SEG ASelCommand*)
  26.                 (*----------*)
  27.                 METHOD T%appname%App.Do%dlogname%;
  28.                 BEGIN
  29.                     f%dlogname%.Select;
  30.                     f%dlogname%.Show (TRUE, TRUE);
  31.                 END Do%MenuItemName%;
  32.  
  33.             %endif%
  34.         %endif%
  35.     %endif%
  36. %case handleItem%
  37.     %if commandNr > 999%
  38.         | c%MenuName%%MenuItemName%:
  39.         %if dialogExists%
  40.                 Do%dlogname%;
  41.         %else%
  42.                 (*.handle %MenuItemName% choice.*);
  43.         %endif%
  44.     %endif%
  45. %case enableItem%
  46.     %if commandNr > 999%
  47.         Enable (c%MenuName%%MenuItemName%, TRUE);
  48.     %endif%
  49. %case importItem%
  50.     %if commandNr > 999%
  51.         c%MenuName%%MenuItemName%,
  52.     %endif%
  53.